The Netter Presenter: Ur…ion in Overactive Bladder/The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso/mac/UrinarySystem.app/Contents/Main.dxr/Internal_11_Import-Export Functions.ls

Text File | 2005-01-18 | 12.6 KB | 451 lines

global gFile, gPersonalFilePath, gNoteData, glCurrentListData, gCurrentList, gPrefsFolder, gLibPrefsFolder, gFirstVisit, gPointerLoc, gPointerChannel, gLabelChannel, gLineChannel, gImageLibNum, gPathSymbol, gImageChannel, glSelectedLabels, glSelectedLines, gPFimportedData, gPFname, glPFnames, glPFListNames, glImageList, gLoadTime, gLibName, gListObject, gblack, ggreen, gred, gredx, filePath, gsize, gexportlistswitch, gexportppt, gprintlistimages

on ReadPrefs
  gListObject = "PFList"
  if not baFolderExists(gPrefsFolder) then
    result = baCreateFolder(gPrefsFolder)
    if the platform contains "Mac" then
      gLoadTime = 5
    else
      gLoadTime = 14
    end if
    SaveSpeed()
  end if
  if not baFolderExists(gLibPrefsFolder) then
    gFirstVisit = 1
  else
    gFirstVisit = 0
  end if
  glPFnames = []
  repeat with i = 1 to the maxinteger
    n = getNthFileNameInFolder(gLibPrefsFolder, i)
    if n = EMPTY then
      exit repeat
      next repeat
    end if
    append(glPFnames, n)
  end repeat
  if glPFnames = [] then
    gPFimportedData = "[" & QUOTE & "list1" & QUOTE & "]" & RETURN & "~list1" & RETURN & "~"
    gPFname = "PersonalFile1"
    glPFnames = ["PersonalFile1"]
    gCurrentList = "list1"
    value(gListObject).plImageData = [:]
    glCurrentListData = []
    value(gListObject).pCurrentImage = EMPTY
    value(gListObject).plFoundImages = []
    glPFListNames = ["list1"]
    WritePersonalFileNoDialog()
  else
    gPFname = getAt(glPFnames, 1)
    member("PFfile").text = gPFname
    ReadPersonalFile()
    gCurrentList = getAt(glPFListNames, 1)
    member("PFlist").text = gCurrentList
    repeat with lineNum = 1 to gPFimportedData.line.count
      if gPFimportedData.line[lineNum].char[1] = "~" then
        lineContent = gPFimportedData.line[lineNum]
        if lineContent.char[2..lineContent.char.count] = gCurrentList then
          platecount = 0
          repeat while gPFimportedData.line[lineNum + platecount + 1].char[1] <> "~"
            if gPFimportedData.line[lineNum + platecount + 1] = "[]" then
              exit repeat
            end if
            platecount = platecount + 1
          end repeat
          value(gListObject).plFoundImages = []
          glListImageNames = []
          glCurrentListData = []
          repeat with plateNum = lineNum + 1 to lineNum + platecount
            plateData = value(gPFimportedData.line[plateNum])
            if plateData = [:] then
              exit repeat
            end if
            append(glCurrentListData, plateData)
            append(glListImageNames, getPropAt(plateData, 1))
          end repeat
          repeat with nameNum = 1 to glListImageNames.count
            imageName = getAt(glListImageNames, nameNum)
            imageNumber = imageName.char[6..imageName.char.count]
            if getOne(glImageList, imageNumber) <> 0 then
              append(value(gListObject).plFoundImages, imageNumber)
            end if
          end repeat
        end if
      end if
    end repeat
  end if
  gLoadTime = ReadSpeedFile(gPrefsFolder & "ILSSpeed")
  gListObject = "WSearch"
  member("PFfile").text = gPFname
  member("PFlist").text = gCurrentList
end

on SavePrefs
  WriteReg(gPrefsFolder & "ILSReg", "1")
end

on SaveSpeed
  WriteSpeed(gPrefsFolder & "ILSSpeed", gLoadTime)
end

on ReadRegFile WhichFile, WhichField
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  openFile(gFile, WhichFile, 0)
  theFile = readFile(gFile)
  temp = theFile
  repeat while 1
    y = offset(numToChar(10), temp)
    if y > 0 then
      delete char y of temp
      next repeat
    end if
    exit repeat
  end repeat
  theFile = temp
  closeFile(gFile)
  gFile = 0
  return theFile
end

on WriteReg WhichFile, thecontent
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  openFile(gFile, WhichFile, 0)
  delete(gFile)
  createFile(gFile, WhichFile)
  openFile(gFile, WhichFile, 0)
  setFinderInfo(gFile, "TEXT ttxt")
  writeString(gFile, thecontent)
  closeFile(gFile)
  gFile = 0
end

on ReadSpeedFile WhichFile
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  openFile(gFile, WhichFile, 0)
  theFile = readFile(gFile)
  temp = theFile
  repeat while 1
    y = offset(numToChar(10), temp)
    if y > 0 then
      delete char y of temp
      next repeat
    end if
    exit repeat
  end repeat
  theFile = temp
  closeFile(gFile)
  gFile = 0
  return value(theFile)
end

on WriteSpeed WhichFile, thecontent
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  openFile(gFile, WhichFile, 0)
  delete(gFile)
  createFile(gFile, WhichFile)
  openFile(gFile, WhichFile, 0)
  setFinderInfo(gFile, "TEXT ttxt")
  writeString(gFile, string(thecontent))
  closeFile(gFile)
  gFile = 0
end

on AppendTextFile thePath
  if objectp(gFile) then
    gFile = 0
  end if
  SaveString = " " & the text of field "input"
  gFile = new(xtra("fileio"))
  openFile(gFile, thePath, 0)
  setPosition(gFile, getLength(gFile))
  writeString(gFile, SaveString)
  closeFile(gFile)
  gFile = 0
end

on ReadTextFile thePath
  global content
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  openFile(gFile, thePath, 0)
  theFile = readFile(gFile)
  temp = theFile
  repeat while 1
    y = offset(numToChar(10), temp)
    if y > 0 then
      delete char y of temp
      next repeat
    end if
    exit repeat
  end repeat
  theFile = temp
  content = theFile
  closeFile(gFile)
  gFile = 0
end

on WriteTextFile thePath
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  openFile(gFile, thePath, 0)
  delete(gFile)
  createFile(gFile, thePath)
  openFile(gFile, thePath, 0)
  setFinderInfo(gFile, "TEXT ttxt")
  writeString(gFile, gNoteData)
  closeFile(gFile)
  gFile = 0
end

on WriteTextFileWithDialog data
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  thePath = displaySave(gFile, "Save Image Notes As:", value(gListObject).pCurrentImage & ".txt")
  if thePath.char[thePath.char.count - 3..thePath.char.count] <> ".txt" then
    put ".txt" after thePath
  end if
  openFile(gFile, thePath, 0)
  delete(gFile)
  createFile(gFile, thePath)
  openFile(gFile, thePath, 0)
  setFinderInfo(gFile, "TEXT ttxt")
  writeString(gFile, data)
  closeFile(gFile)
  gFile = 0
end

on ExportImage size
  gsize = size
  startTimer()
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  if sprite(gImageChannel).member.type = #quickTimeMedia then
    filePath = displaySave(gFile, "Save Animation To:", "Animation" & value(gListObject).pCurrentImage & ".mpg")
  else
    if size = "large" then
      filePath = displaySave(gFile, "Save full size Image To:", "Figure" & value(gListObject).pCurrentImage & ".jpg")
    else
      filePath = displaySave(gFile, "Save half size Image To:", "Figure" & value(gListObject).pCurrentImage & ".jpg")
    end if
  end if
  if filePath = EMPTY then
    gFile = 0
    exit
  end if
  if sprite(gImageChannel).member.type = #quickTimeMedia then
    baCopyFile(the moviePath & "Images" & gPathSymbol & value(gListObject).pCurrentImage & ".mpg", filePath, "always")
    if the result = 0 then
      alert("The animation was exported successfully")
    end if
  else
    PreviewModeON()
    sprite(251).visible = 0
    sprite(294).visible = 1
    sprite(295).visible = 1
    sprite(271).visible = 0
    sprite(243).visible = 0
    updateStage()
    member("Screen Capture").picture = (the stage).picture
    if the platform contains "Mac" then
      image = new(xtra("DirectImage"), 241040691)
    else
      image = new(xtra("DirectImage"), 236558701)
    end if
    if filePath.char[filePath.char.count - 3..filePath.char.count] = ".TXT" then
      delete filePath.char[filePath.char.count - 3..filePath.char.count]
    end if
    if filePath.char[filePath.char.count - 3..filePath.char.count] <> ".jpg" then
      put ".jpg" after filePath
    end if
    imageLoadFromMember(image, member("Screen Capture", 1))
    if size = "small" then
      imageMinify(image)
    end if
    imageSaveToFile(image, "JPG:" & filePath, 100, 1, 1)
    PreviewModeOFF()
    sprite(294).visible = 0
    sprite(295).visible = 0
    sprite(251).visible = 1
    sprite(271).visible = 1
    sprite(243).visible = 1
    updateStage()
    loadTime = the timer / 60.0
    gLoadTime = (gLoadTime + loadTime) / 2
    forget(image)
  end if
end

on ExportListImages size
  gsize = size
  startTimer()
  if glCurrentListData.count = 0 then
    alert("There are no images to export.")
    exit
  end if
  EstimateExportTime()
  if objectp(gFile) then
    gFile = 0
  end if
  gFile = new(xtra("fileio"))
  if gexportppt = 1 then
    gexportppt = 0
    dtop = baSysFolder("desktop")
    filePath = baGetFolder(dtop, "Select a folder for the new presentation.", 2, EMPTY, -2, 0)
    if filePath = EMPTY then
      gFile = 0
      exit
    end if
    put glCurrentListData.count, glCurrentListData
    baCopyFile(the moviePath & "PPT Programs" & gPathSymbol & "P" & string(glCurrentListData.count) & ".ppt", filePath & "Presentation.ppt", "always")
    filePath = filePath & "ppt"
  else
    if size = "large" then
      filePath = displaySave(gFile, "Save full size Images as:", gCurrentList)
    else
      filePath = displaySave(gFile, "Save half size Images as:", gCurrentList)
    end if
    if filePath = EMPTY then
      gFile = 0
      exit
    end if
  end if
  if filePath.char[filePath.char.count - 3..filePath.char.count] = ".TXT" then
    delete filePath.char[filePath.char.count - 3..filePath.char.count]
  end if
  sprite(gPointerChannel).loc = point(-200, 463)
  sprite(293).member = "pointer button"
  sprite(296).visible = 1
  sprite(252).visible = 1
  sprite(253).visible = 1
  set the stageColor to the stageColor
  gexportlistswitch = 1
  go("export images")
end

on printDoc
  startTimer()
  doc = new(xtra("PrintOMatic"))
  setMargins(doc, rect(36, 36, 36, 36))
  setLandscapeMode(doc, 1)
  newPage(doc)
  result = doJobSetup(doc)
  if not result then
    abort()
  end if
  sprite(251).visible = 0
  sprite(294).visible = 1
  sprite(295).visible = 1
  sprite(271).visible = 0
  sprite(243).visible = 0
  PreviewModeON()
  updateStage()
  member("Screen Capture").picture = (the stage).picture
  drawPicture(doc, member("Screen Capture"), rect(70, 0, 720, 540), 1)
  if the optionDown then
    printPreview(doc)
  else
    print(doc)
  end if
  doc = 0
  sprite(294).visible = 0
  sprite(295).visible = 0
  sprite(251).visible = 1
  sprite(271).visible = 1
  sprite(243).visible = 1
  PreviewModeOFF()
  updateStage()
  loadTime = the timer / 60.0
  gLoadTime = ((gLoadTime * 4) + loadTime) / 5
end

on PrintListImages
  startTimer()
  if glCurrentListData.count = 0 then
    alert("There are no images to print.")
    exit
  end if
  EstimateExportTime()
  gprintlistimages = 1
  go("export images")
end

on RestoreImageToExport
  LoadImageDefinition()
  sprite(296).visible = 1
  sprite(252).visible = 1
  sprite(253).visible = 1
  if gPointerLoc.locH < 200 then
    sprite(gPointerChannel).member = "pointer button"
    sprite(gPointerChannel).loc = point(-200, 463)
    sprite(gPointerChannel).visible = 0
  else
    sprite(293).visible = 1
    sprite(gPointerChannel).loc = gPointerLoc
    sprite(gPointerChannel).member = "pointer"
    sprite(gPointerChannel).visible = 1
  end if
  castLib("Plate").fileName = the moviePath & "Images" & gPathSymbol & "plate" & value(gListObject).pCurrentImage & ".cst"
  glImageMap = value(member("Map", gImageLibNum).text)
  sprite(gImageChannel + 1).loc = value(getAt(glImageMap, 1))
  repeat with labelNum = gLabelChannel to gLabelChannel + 99
    sprite(labelNum).visible = 0
    if getOne(glSelectedLabels, labelNum) = 0 then
      sprite(labelNum).loc = point(-400, 0)
      next repeat
    end if
    sprite(labelNum).loc = value(getAt(glImageMap, labelNum - 41))
    sprite(labelNum).visible = 1
    if sprite(labelNum).member.type = #text then
      sprite(labelNum).member.foreColor = 255
    end if
  end repeat
  repeat with z = gLineChannel to gLineChannel + 99
    if getOne(glSelectedLines, z) > 0 then
      if sprite(z).member.type = #vectorShape then
        sprite(z).visible = 1
        case sprite(z).member.strokeColor of
          gred:
            sprite(z).member.strokeColor = gblack
          gredx:
            sprite(z).member.strokeColor = ggreen
        end case
      end if
      next repeat
    end if
    sprite(z).visible = 0
  end repeat
  sprite(296).visible = 0
  sprite(252).visible = 0
  sprite(253).visible = 0
  updateStage()
end

on RestoreAnimationToExport
  LoadImageDefinition()
  castLib("Plate").fileName = the moviePath & "Images" & gPathSymbol & "plate" & value(gListObject).pCurrentImage & ".cst"
  glImageMap = value(member("Map", gImageLibNum).text)
  sprite(gImageChannel + 1).loc = value(getAt(glImageMap, 1))
  updateStage()
end